home *** CD-ROM | disk | FTP | other *** search
/ NT Sources / Infomagic - NT Source Volume 1 (Disc 1 of 2).iso / network / pcdctrla.exe / PCDCTRL.EXE / PCDTPL.TPU < prev    next >
Text File  |  1997-09-08  |  1KB  |  44 lines
  1. !+++
  2. ! PCDUO_TEMPLATE.TPU - Edits a PATHWORKS 5 template file for PC-Duo
  3. !---
  4.  
  5. ! We have to edit 1 section - [User Commands]. We add a call to STARTSLV.BAT.
  6. ! If it already present, the existing line will be replaced by the new one.
  7.  
  8. PROCEDURE LUT_update_template ();
  9.     ! Declare some local variables - initialised to zero
  10.  
  11.     LOCAL   LUT_user_range;         ! Limit the replacement to a range
  12.  
  13.     LUT_user_range := LUT_create_range (LINE_BEGIN + "[User Commands]", LINE_BEGIN + "[");
  14.  
  15.     ! See whether the section exists. If not, create a new one
  16.  
  17.     If LUT_user_range = 0
  18.     Then
  19.         MESSAGE (FAO ("Creating new [User Commands] section"));
  20.         LUT_line_insert_bottom ("");    ! Add a blank line
  21.         LUT_line_insert_bottom ("[User Commands]");
  22.         LUT_line_insert_bottom (
  23.             "    if exist \pcduo\startslv.bat   call \pcduo\startslv.bat");
  24.         LUT_line_insert_bottom ("");    ! Add a blank line
  25.     Else
  26.         LUT_line_replace_add ("startslv.bat",
  27.             "    if exist \pcduo\startslv.bat   call \pcduo\startslv.bat", LUT_user_range);
  28.     Endif;
  29. ENDPROCEDURE;
  30.  
  31. LUT_start_edit ();      ! This reads the file (if it exists), creates a buffer,
  32.                         ! and positions us at the top of the buffer
  33.  
  34. IF LUT_buffer_empty
  35. THEN
  36.     quit;               ! Error - the input file must exist!
  37. ENDIF;
  38.  
  39. LUT_update_template ();
  40.  
  41. ! And now perform 'standard' finishing functions...
  42.  
  43. LUT_finish_edit ();
  44.